inherited fmKomisyonHesapla: TfmKomisyonHesapla
  Left = 616
  Top = 268
  Caption = 'Komisyon Hesaplama'
  ClientHeight = 116
  ClientWidth = 248
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 7
    Top = 10
    Width = 77
    Height = 13
    Caption = 'Yat'#305'r'#305'lacak Tutar'
  end
  object Label2: TLabel [1]
    Left = 9
    Top = 34
    Width = 31
    Height = 13
    Caption = 'Banka'
  end
  object Label3: TLabel [2]
    Left = 10
    Top = 58
    Width = 75
    Height = 13
    Caption = #199'ekilecek Tutar'
  end
  object edYatirTutar: TwwDBEdit [3]
    Left = 89
    Top = 6
    Width = 158
    Height = 21
    EditAlignment = eaRightAlignEditing
    Picture.PictureMask = 
      '{{{#[#][#]{{;.###*[;.###]},*#}[;,*#]},;,#*#}[E[[+,-]#[#][#]]],({' +
      '{#[#][#]{{;.###*[;.###]},*#}[;,*#]},;,#*#}[E[[+,-]#[#][#]]]),[-]' +
      '{{#[#][#]{{;.###*[;.###]},*#}[;,*#]},;,#*#}[E[[+,-]#[#][#]]]}'
    TabOrder = 0
    UnboundDataType = wwDefault
    UnboundAlignment = taRightJustify
    WantReturns = False
    WordWrap = False
    OnChange = edYatirTutarChange
  end
  object lcBanka: TwwDBLookupCombo [4]
    Left = 89
    Top = 30
    Width = 158
    Height = 21
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'BankaAdi'#9'25'#9'BankaAdi'#9'F'
      'TaksitAdi'#9'12'#9'TaksitAdi'#9#9)
    LookupTable = aqKomisyon
    LookupField = 'Ref'
    Style = csDropDownList
    Navigator = False
    TabOrder = 1
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = False
    OnChange = edYatirTutarChange
  end
  object edCekilecekTutar: TwwDBEdit [5]
    Left = 89
    Top = 54
    Width = 158
    Height = 21
    Color = clLime
    EditAlignment = eaRightAlignEditing
    ReadOnly = True
    TabOrder = 2
    UnboundDataType = wwDefault
    UnboundAlignment = taRightJustify
    WantReturns = False
    WordWrap = False
  end
  object bkapat: TBitBtn [6]
    Left = 168
    Top = 86
    Width = 76
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Kapat'
    TabOrder = 3
    OnClick = bkapatClick
  end
  inherited alKeyControl: TActionList
    Left = 458
    Top = 253
    inherited acKeyDownLeft: TAction
      ShortCut = 0
    end
    inherited acKeyDownRight: TAction
      ShortCut = 0
    end
    inherited acKeyDownUp: TAction
      ShortCut = 0
    end
    inherited acKeyDownDown: TAction
      ShortCut = 0
    end
  end
  inherited XPManifest: TXPManifest
    Left = 497
    Top = 254
  end
  object aqKomisyon: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'select Kh.Ref,K.BasTarih,K.BitTarih,B.BankaAdi'
      
        ',TaksitAdi=(Case When Taksit=0 Then '#39'Tek '#199'ekim'#39' When EkTaksit=0 ' +
        'then Cast(Taksit as varchar(2))+'#39' Taksit'#39
      
        'else Cast(Taksit as varchar(2))+'#39'+'#39'+Cast(EkTaksit as varchar(2))' +
        '+'#39' Taksit'#39' end)'
      ',Kh.Taksit,Kh.EkTaksit,Kh.Komisyon '
      'from TblKomisyon K '
      'Join TblKomisyonBanka Kb On (K.Ref=Kb.KomisyonRef)'
      'Join TblKomisyonHareket Kh On (K.Ref=Kh.KomisyonRef)'
      'Join TblBanka B on (B.Ref=Kb.Banka)'
      'Where K.BitTarih>=dbo.GetSmallDate(Getdate())'
      'Order by B.BankaAdi,Taksit')
    Left = 6
    Top = 83
  end
end
